home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / TeX-inputs / LaTeX / graphics / trig.sty < prev    next >
Text File  |  1997-03-08  |  3KB  |  94 lines
  1. %%
  2. %% This is file `trig.sty',
  3. %% generated with the docstrip utility.
  4. %%
  5. %% The original source files were:
  6. %%
  7. %% trig.dtx  (with options: `package')
  8. %% 
  9. %% File: trig.dtx Copyright (C) 1993-1994 David Carlisle
  10. \NeedsTeXFormat{LaTeX2e}
  11. \ProvidesPackage{trig}
  12.                  [1994/10/16 v1.08 sin cos tan (DPC)]
  13. \chardef\nin@ty=90
  14. \chardef\@clxx=180
  15. \chardef\@lxxi=71
  16. \mathchardef\@mmmmlxviii=4068
  17. \chardef\@coeffz=72
  18. \chardef\@coefb=42
  19. \mathchardef\@coefc=840
  20. \mathchardef\@coefd=5040
  21. {\catcode`t=12\catcode`p=12\gdef\noPT#1pt{#1}}
  22. \def\TG@rem@pt#1{\expandafter\noPT\the#1\space}
  23. \def\TG@term#1{%
  24.  \dimen@\@tempb\dimen@
  25.  \advance\dimen@ #1\p@}
  26. \def\TG@series{%
  27.  \dimen@\@lxxi\dimen@
  28.  \divide \dimen@ \@mmmmlxviii
  29.  \edef\@tempa{\TG@rem@pt\dimen@}%
  30.  \dimen@\@tempa\dimen@
  31.  \edef\@tempb{\TG@rem@pt\dimen@}%
  32.  \divide\dimen@\@coeffz
  33.  \advance\dimen@\m@ne\p@
  34.  \TG@term\@coefb
  35.  \TG@term{-\@coefc}%
  36.  \TG@term\@coefd
  37.  \dimen@\@tempa\dimen@
  38.  \divide\dimen@ \@coefd}
  39. \def\CalculateSin#1{{%
  40.   \expandafter\ifx\csname sin(\number#1)\endcsname\relax
  41.     \dimen@=#1\p@\TG@@sin
  42.     \expandafter\xdef\csname sin(\number#1)\endcsname
  43.                                     {\TG@rem@pt\dimen@}%
  44.   \fi}}
  45. \def\CalculateCos#1{{%
  46.   \expandafter\ifx\csname cos(\number#1)\endcsname\relax
  47.     \dimen@=\nin@ty\p@
  48.     \advance\dimen@-#1\p@
  49.     \TG@@sin
  50.     \expandafter\xdef\csname cos(\number#1)\endcsname
  51.                                      {\TG@rem@pt\dimen@}%
  52.   \fi}}
  53. \def\TG@reduce#1#2{%
  54. \dimen@#1#2\nin@ty\p@
  55.   \advance\dimen@#2-\@clxx\p@
  56.   \dimen@-\dimen@
  57.   \TG@@sin}
  58. \def\TG@@sin{%
  59.   \ifdim\TG@reduce>+%
  60.   \else\ifdim\TG@reduce<-%
  61.   \else\TG@series\fi\fi}%
  62. \def\UseSin#1{\csname sin(\number#1)\endcsname}
  63. \def\UseCos#1{\csname cos(\number#1)\endcsname}
  64. \chardef\z@num\z@
  65. \expandafter\let\csname sin(0)\endcsname\z@num
  66. \expandafter\let\csname cos(0)\endcsname\@ne
  67. \expandafter\let\csname sin(90)\endcsname\@ne
  68. \expandafter\let\csname cos(90)\endcsname\z@num
  69. \expandafter\let\csname sin(-90)\endcsname\m@ne
  70. \expandafter\let\csname cos(-90)\endcsname\z@num
  71. \expandafter\let\csname sin(180)\endcsname\z@num
  72. \expandafter\let\csname cos(180)\endcsname\m@ne
  73. \def\CalculateTan#1{{%
  74.   \expandafter\ifx\csname tan(\number#1)\endcsname\relax
  75.     \CalculateSin{#1}%
  76.     \CalculateCos{#1}%
  77.     \@tempdima\UseCos{#1}\p@
  78.     \divide\@tempdima\@iv
  79.     \@tempdimb\UseSin{#1}\p@
  80.     \@tempdimb\two@fourteen\@tempdimb
  81.     \divide\@tempdimb\@tempdima
  82.     \expandafter\xdef\csname tan(\number#1)\endcsname
  83.                                         {\TG@rem@pt\@tempdimb}%
  84.   \fi}}
  85. \def\UseTan#1{\csname tan(\number#1)\endcsname}
  86. \mathchardef\two@fourteen=16384
  87. \chardef\@iv=4
  88. \expandafter\def\csname tan(90)\endcsname{\errmessage{Infinite tan !}}
  89. \expandafter\let\csname tan(-90)\expandafter\endcsname
  90.                                        \csname tan(90)\endcsname
  91. \endinput
  92. %%
  93. %% End of file `trig.sty'.
  94.